home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Avalon 2
/
Avalon_02_1995-06_Avalon_Side_B.d64
/
play keys
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
286b
|
17 lines
1 dimn(63,2)
2 base=1072
3 fort=0to63
4 n(t,1)=int(base/256)
5 n(t,2)=base-n(t,1)*256
6 base=base+base*.0595
7 next t
10 sid=54272
20 pokesid+24,15
30 pokesid+6,80
40 a=peek(197):print"[147]":print"press some keys please"
50 if a=64thengoto40
60 pokesid+1,n(a,1)
65 pokesid+0,n(a,2)
70 pokesid+4,33
80 goto40